home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / REALEXPR.M < prev    next >
Encoding:
Text File  |  1991-08-02  |  379 b   |  27 lines
  1. MODULE T;
  2.  
  3. IMPORT TOSIO; (*$EMOS*)
  4. FROM InOut IMPORT WriteReal;
  5.  
  6. VAR st: ARRAY [0..10] OF REAL;
  7.     sp: INTEGER;
  8.  
  9. PROCEDURE push(e:REAL);
  10.   BEGIN
  11.     st[sp]:= e;
  12.     INC (sp);
  13.   END push;
  14.  
  15. PROCEDURE pop ():REAL;
  16.   BEGIN
  17.     DEC (sp);
  18.     RETURN st[sp];
  19.   END pop;
  20.  
  21. BEGIN
  22.   push (7.);
  23.   push (4.);
  24.   push (pop()+pop());
  25.   WriteReal (pop(),20,10);
  26. END T.
  27.